inherit CometVisu_individuals_LM_PM Logical_model

#___________________________________________________________________________________________________________________________________________
method CometVisu_individuals_LM_PM constructor {name descr args} {
 this inherited $name $descr
# Adding some physical presentations 
 this Add_PM_factories [Generate_factories_for_PM_type [list {CometVisu_individuals_PM_P_TK_CANVAS_basic Ptf_TK_CANVAS} \
                                                       ] $objName]

 Add_U_fine_tuned_factory_for_encaps $objName Ptf_TK Ptf_TK_CANVAS CometVisu_individuals_PM_P_TK_CANVAS_basic {Container_FUI_bridge_TK_to_CANVAS_frame(,$obj())}

 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometVisu_individuals_LM_PM [P_L_methodes_set_CometVisu_individuals] {} {$this(L_actives_PM)}
Methodes_get_LC CometVisu_individuals_LM_PM [P_L_methodes_get_CometVisu_individuals] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
proc P_L_methodes_set_CometVisu_individuals_COMET_RE_PM {} {return [list]}
Generate_LM_setters CometVisu_individuals_LM_PM [P_L_methodes_set_CometVisu_individuals_COMET_RE_PM]

#___________________________________________________________________________________________________________________________________________


